10 OPEN 1,4,4
20 READ A
30 IF A=-1 THEN 60
40 PRINT#1,CHR$(A);
50 GOTO 20
60 PRINT#1,CHR$(10) : REM LF + CR
70 CLOSE 1 : END
80 DATA 27, 42, 39, 24, 0, 3, 192, 6
90 DATA 6, 33, 198, 12, 19, 166, 9, 141
100 DATA 134, 27, 29, 198, 27, 108, 230, 27
110 DATA 140, 70, 30, 12, 134, 12, 13, 6
120 DATA 7, 255, 198, 15, 255, 230, 16, 0
130 DATA 70, 0, 0, 134, 0, 0, 6, 0
140 DATA 0, 6, 0, 0, 6, 4, 0, 6
150 DATA 12, 0, 134, 31, 255, 198, 15, 255
160 DATA 230, 0, 0, 198, 0, 0, 134, 0
170 DATA 1, 6, 0, 0, 6, -1